Program tong_so_le;
Uses crt;
Var S,N,I:Integer;
Xữa chương trình sau( nếu sai)
Begin
Clrscr;
Write('Nhap N ');Readln(N);
S:=0;
For I:=1 to N do If (I mod 2<>0) then
S:=S+I;
Writeln('Tong cac so le la ',S); Readln;
End.
Giup mik nha các bn
Thanks
Những câu hỏi liên quan
uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).
a) tính tổng các số chẵn từ 1 đến 50
b)
(3): lệnh viết kq của ct trên.
(4):lệnh in ra màn hình kq của bài toán.
(5):lệnh kết thúc ct.
Đúng 0
Bình luận (0)
a) Tính tổng các số chẵn từ 1 đến 50
b) (3): Cộng các số chẵn trong khoảng từ 1 đến 50
(4): Xuất tổng
(5): Lệnh chờ đợi chương trình xử lý và chạy
Đúng 0
Bình luận (0)
program bai_giai;
uses crt;
var A:array[1..10] of integer;
i:integer;
s:real;
begin
s:=0;
for i:=1 to 10 do;
begin
write('nhap so thu ',i,':');
readln(A [i]);
if a[i]mod 3=0 then;
begin
s:=s+A[i];
end.
cho em hỏi chương trình trên đúng ko ạ?
program Tinh_tong;
uses crt;
var i, n, s: integer;
begin clrscr;
writeln('Chuong trinh tinh tong S = 1 + 2 + ... + n');
write('Nhap so n: ');read(n); s:=0;
for i := 1 to n do s := s + i;
writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);
readln;
readln;
end.
* Dựa vào vòng lặp for viết chương trình tính tổng n số tự nhiên bằng vòng lặp while
Program HOC24;
var i,n,s: integer;
begin
writeln('Chuong trinh tinh tong S = 1 + 2 +3 +...+ n');
write('Nhap so n;'); readln(n);
s:=0; i:=1;
while i<n do
begin
s:=s+i;
i:=i+1;
end;
writeln('Tong cua ',n,' so tu nhien dau tien s = ',s);
readln
end.
Đúng 0
Bình luận (0)
uses crt;
var i,n,s:integer;
begin
clrscr;
write('Nhap n='); readln(n);
s:=0;
i:=0;
while i<=n do
begin
i:=i+1;
s:=s+i;
end;
writeln(s);
readln;
end.
Đúng 0
Bình luận (0)
uses crt; var i,S:Integer; begin clrscr; (1) for i:=1 to 50 do (2) if (i mod 2=0) then S:=S+i; (3) writeln('S=',S); (4) readln; (5) end. CÂU HỎI: a) Chương trình trên đang thực hiện công việc gì ? b) Cho biết ý nghĩa của câu lệnh (3),(4),(5).
a) Tính tổng các số chẵn từ 1 đến 50
b) (3): Cộng các số chẵn trong khoảng từ 1 đến 50
(4): Xuất tổng
(5): Lệnh chờ đợi chương trình xử lý và chạy
Đúng 0
Bình luận (0)
BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DOBài 1: SGK 60 Nhập chương trình : uses crt; var N,I:integer; begin clrscr; write (Nhap so N); readln(N); writeln; writeln(Bang nhan,N); writeln; for i:1 to 10 writeln(N,x,i:2, ,N*i:3); readlnend Câu hỏi ôn tập: a. Sau khi nhập đoạn chương trình bài 1. Cho...
Đọc tiếp
BÀI THỰC HÀNH 5:SỬ DỤNG CÂU LỆNH LẶP FOR...DO
Bài 1: SGK 60
Nhập chương trình :
uses crt;
var N,I:integer;
begin
clrscr;
write (Nhap so N='); readln(N);
writeln;
writeln('Bang nhan',N);
writeln;
for i:=1 to 10 writeln(N,'x',i:2,' = ',N*i:3);
readln
end
Câu hỏi ôn tập:
a. Sau khi nhập đoạn chương trình bài 1. Cho biết ý nghĩa từng câu lệnh trong chương trình .
b. Nếu giá trị cuối trong lệnh For...do sủa cho 100.thì kết quả như thế nào ?
c. Nếu giá trị đầu và cuối trong lệnh For... do sủa là -10 và 100. thì kết quả như thế nào?
b) sẽ trờ thành bảng nhân N:có các nhân tử từ 1 đến 100
c)
Nhân từ 10 đến 100
Đúng 3
Bình luận (0)
Cho biết kết quả chương trình sau và giải thích
program vidu;
uses crt;
var i:integer;
begin
clrscr;
i:=15;
while i>1 do
begin
If i mod 2 =0 then i:=i div 2 else i:=i*3+1;
Write(i:5);
End;
readln;
end.
Chương trình sẽ bị lỗi vì vi i:5 chỉ dành cho số thực, không dành cho số nguyên
Đúng 0
Bình luận (0)
Hãy tìm lỗi đoạn chương trình sau và sửa lại cho đúng vào cột bên cạnh: Program Tong__nghich__dao; Var n, i: real S: Integer; Begin Write (‘Nhap n= ’); readln(n); S:=0; For i:=1 to n do S=S+1/i; Write(‘Tong can tim la: ’, ‘S:6:2’); Readln End.
Program Tong__nghich__dao;
Var
n,i:real;
S:Integer;
Begin
Write('Nhap n=');Readln(n);
S:=0;
For i:=1 to n do S:=S+1/i;
Write('Tong can tim la: ', S:6:2);
Readln;
End.
Đúng 0
Bình luận (1)
Program HelloWorld(output);
Var a,b :array[1..100] of integer;
i,n,s,d:integer;
begin
write(‘Nhap n ’); readln(n);
For i:1 to n do
Begin
Write(‘a[‘,i,’]’); readln(a[i]);
End;
s:0;
for i:1 to n do
if (a[i]mod 21) then s:s+a[i];
write(‘tong so le ’,s);
d:0;
for i:1 to n do
if (a[i]mod 30) then d:d+1;
write(‘so luong so chia het cho 3: ’,d);
For i:1 to n do b[i]:2*a[i];
For i:1 to n do write(b[i]:4);
readln
end.
code này sai chỗ nào vậy mn ?, giúp em sửa với...
Đọc tiếp
Program HelloWorld(output);
Var a,b :array[1..100] of integer;
i,n,s,d:integer;
begin
write(‘Nhap n= ’); readln(n);
For i:=1 to n do
Begin
Write(‘a[‘,i,’]=’); readln(a[i]);
End;
s:=0;
for i:=1 to n do
if (a[i]mod 2=1) then s:=s+a[i];
write(‘tong so le ’,s);
d:=0;
for i:=1 to n do
if (a[i]mod 3=0) then d:=d+1;
write(‘so luong so chia het cho 3: ’,d);
For i:=1 to n do b[i]:=2*a[i];
For i:=1 to n do write(b[i]:4);
readln
end.
code này sai chỗ nào vậy mn ?, giúp em sửa với ạ.
Mình kiểm tra thấy nó có sai về lỗi gì đâu. Ý bạn là sai về cách chạy đúng không, bạn gửi đề để mình xem nhé
Đúng 0
Bình luận (0)
Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( Tong cac phan tu le trong mang la : , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 0 then chan : tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( Nhap so phan tu cua mang : ) ; Readln ( n ) ;
For i : 1 to n do readln ( a [ i ] ) ;
For i : 1 to n do
Write ( Nhap phan thu thu...
Đọc tiếp
Em hãy sắp xếp các câu lệnh sau và viết lại thành 1 chương trình hoàn chỉnh . Sau đó cho biết chương trình đó thực hiện công việc gì ? Writeln ( ' Tong cac phan tu le trong mang la : ' , tle ) ;
End.
Program Bai _ tap _ day _ so ;
If a [ i ] mod 2 = 0 then chan : = tchan + a [ i ] Readln ;
a:array [ 1 . . 100 ] of Integer ;
Begin
Clrscr ;
write ( ' Nhap so phan tu cua mang : ' ) ; Readln ( n ) ;
For i : = 1 to n do readln ( a [ i ] ) ;
For i : = 1 to n do
Write ( ' Nhap phan thu thu ' i ) ;
Writeln ( ' Tong cac phan tu chan trong mang la : ' , tchan ) ;
Begin
End ;
tchan : = 0 ; tle : = 0 ;
Else tle : = tle + a [ i ] ;
Uses crt ;
Var i , n , tchan , tle : Integer ;